home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / DMBaseExtra / DMDebugHelp.DEF next >
Encoding:
Modula Definition  |  1996-06-21  |  2.2 KB  |  76 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE DMDebugHelp;
  2.  
  3.   (*******************************************************************
  4.  
  5.     Module    DMDebugHelp     DM_V2.2
  6.  
  7.               Copyright ©1989 by Andreas Fischlin and Swiss
  8.               Federal Institute of Technology Zürich ETHZ
  9.  
  10.       Version written for:
  11.               'Dialog Machine' DM_V2.2 (User interface)
  12.               MacMETH_V3.2     (1-Pass Modula-2 implementation)
  13.  
  14.       Purpose Exports a few routines helping to display
  15.                 messages for debugging in order to avoid to
  16.                 have to call the debugger
  17.  
  18.       Remarks MacMETH 2.6+ does not allow to normally debug
  19.                 in Term procedures or to debug activate and
  20.                 deactivate events (ModalDialog box to call
  21.                 debugger prevents it).  This module allows
  22.                 to get some information out of the system even
  23.                 in these cases
  24.  
  25.       Programming
  26.  
  27.           • Design
  28.               A. Fischlin          16/11/89
  29.  
  30.           • Implementation
  31.               A. Fischlin          16/11/89
  32.  
  33.           Swiss Federal Institute of Technology Zurich ETHZ
  34.           Department of Environmental Sciences
  35.           Systems Ecology Group
  36.           ETH-Zentrum
  37.           CH-8092 Zurich
  38.           Switzerland
  39.  
  40.           Last revision of definition:    23/06/93  af
  41.  
  42.   *******************************************************************)
  43.  
  44.   IMPORT SYSTEM;
  45.  
  46.   PROCEDURE CopyString (from: ARRAY OF CHAR;   i1: INTEGER;
  47.                           VAR to: ARRAY OF CHAR; VAR i2: INTEGER);
  48.   PROCEDURE IntToString(x: LONGINT; VAR str: ARRAY OF CHAR; n: CARDINAL);
  49.   
  50.   PROCEDURE Write(ch: CHAR);
  51.   PROCEDURE WriteString(s: ARRAY OF CHAR);
  52.   PROCEDURE WriteLn;
  53.   PROCEDURE WriteInt(x: LONGINT; n: CARDINAL);
  54.   PROCEDURE WriteDataStructure(VAR x: ARRAY OF SYSTEM.BYTE;
  55.                                  b: BOOLEAN; li: LONGINT;
  56.                                  msg: ARRAY OF CHAR);
  57.  
  58.   PROCEDURE MessageWindow(x,y,w,h: INTEGER; p: PROC);
  59.   (* display a message window (Quickdraw coordinates, i.e. top left 
  60.   of main screen x = 0, y = 0) *)
  61.  
  62.   PROCEDURE StartReportOnFile(fileName, msg:  ARRAY OF CHAR); 
  63.   (* write subsequently to file *)
  64.   PROCEDURE CloseReportFile(msg: ARRAY OF CHAR);
  65.   (* stop writing to file *)
  66.   
  67.   PROCEDURE GetModuleIdent(moduleID: INTEGER; VAR modId: ARRAY OF CHAR);
  68.   (* return modId given a moduleID as exported by DMBase *)
  69.   VAR 
  70.     lastModuleID: ARRAY [0..31] OF CHAR; (* assigned by any call to GetModuleIdent *)
  71.     
  72.   PROCEDURE Message(s1,s2: ARRAY OF CHAR);
  73.  
  74. END DMDebugHelp.
  75.  
  76.